#!/usr/bin/perl

use buscarPecas;

print "Content-type: text/html\n\n" ;


## Buscas pelo Codigo de Barras

# buscar pecas sem parametros suficientes
print "#1\n";
buscarPecas();
print "\n\n";

#buscar peca inexistente
print "#2\n";
buscarPecas("PV002");
print "\n\n";print "\n\n";

# buscar peca nao esta na tabela de pecas mas sim nas outras
print "#3\n";
buscarPecas("PV001");
print "\n\n";

# buscar peca que esta na tabela de pecas e na tabela correta
print "#4\n";
buscarPecas("PV000");
print "\n\n";


## Buscas por Caracteristicas
#buscarPecas("barcode", "tipo", "Testado", "Fabricante", "DataRegistro", "Origem", "CodigoBarrasPC", "VariaveisEspecificas", ...)

# buscar so mandando o tipo
print "#5\n";
buscarPecas("", "PV");
print "\n\n";

# buscar mandando o tipo e caracteristicas nulas
print "#6\n";
buscarPecas("", "PV", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",);
print "\n\n";

# buscar mandando o tipo e uma caracteristica
print "#7\n";
buscarPecas("", "PV", "0", "", ""); #testado zero
print "\n\n";

# buscar mandando o tipo e uma caracteristica que nao seja a primeira
print "#8\n";
buscarPecas("", "PV", "", "", "", "Bompreço", "", ""); # origem bompreço
print "\n\n";

# buscar mandando o tipo e mais caracteristicas do q o tipo suporta
print "#9\n";
buscarPecas("", "PV", "", "", "", "", "", "0", "0", "1", "adfdsgfsd");
print "\n\n";

# buscar mandando o tipo por uma peca que esta apenas na tabela do tipo da peca
print "#10\n";
buscarPecas("", "PV", "", "", "", "", "", "0", "0", "0"); # a PV001 so existe na tabela PV
print "\n\n";

# buscar mandando o tipo por uma peca que esta em ambas as tabelas
print "#11\n";
buscarPecas("", "PV", "", "", "", "Bompreço", "", "0", "0", "1");
print "\n\n";

# buscar mandando o tipo por uma peca inexistente
print "#12\n";
buscarPecas("", "PV", "0", "0", "0");
print "\n\n";

